﻿! door_panel_J /modified by VL 3/1/94/
! internal macro: door_int_frame
! a=width, b=height, c=thickness, d= panel frame width,
! e=glass material

f=1"     ! grid width
g=3      ! n. of horizontal panes
h=5      ! n. of vertical panes
prism_ 10,c,
0,0,15,
0,b,15,
a,b,15,
a,0,15,
0,0,-1,
d,d,15,
a-d,d,15,
a-d,b-d,15,
d,b-d,15,
d,d,-1
add d, d, c/4
call door_int_frame a-2*d, b-2*d, c/2, f
add f, f, c/4+0.002
call double_grille a-(d+f)*2, b-(d+f)*2, c/4-0.002, f, g, h
addz -0.004
mulz -1
call double_grille a-(d+f)*2, b-(d+f)*2, c/4-0.002, f, g, h
del 1
if e<0.1 goto 1
material e
block a-(d+f)*2, b-(d+f)*2,0.004           !***glass
1:
end


